Galleria D'arte: Manet/Manet.iso/Dati/Slideshow.dxr/00005_rinomina 1t01f in 1T01F.ls

Text File | 2000-12-21 | 469 b | 18 lines

on rinomina
  repeat with i = 1 to the number of castMembers of castLib "slide"
    nome = member(i, "slide").name
    repeat with h = 1 to the number of chars in nome
      lettera = char h of nome
      ascii = charToNum(lettera)
      if ascii = 116 then
        put "T" into char h of nome
        next repeat
      end if
      if ascii = 102 then
        put "F" into char h of nome
      end if
    end repeat
    member(i, "slide").name = nome
  end repeat
end